home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8611a.d64
/
drucker-kurs l2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
40 lines
10 REM PROGRAMM EPSON-GRAFIK
12 REM DRUCKERKURS 64'ER (AW)
14 PRINT CHR$(147)
16 REM*********************************
18 REM KANAL ZUM DRUCKER OEFFNEN
20 REM*********************************
22 OPEN 1,4
24 A=8192:GOSUB 78
26 PRINT#1,CHR$(27);CHR$(51);CHR$(24)
28 REM*********************************
30 REM ZEILENABSTAND AUF 24/216
32 REM*********************************
34 FOR M=1 TO 3:REM DREI ZEILEN
36 REM*********************************
38 REM GRAFIMODUS ESC "*" M=1 (960)
40 REM*********************************
42 PRINT#1,CHR$(27);CHR$(42);CHR$(1);CHR$(195);CHR$(3);
44 REM*********************************
46 REM EINE ZEILE DRUCKEN (960) PUNKTE
48 REM*********************************
50 FOR Z=0 TO 960
52 B=PEEK(A+Z)
54 PRINT#1,CHR$(B);
56 NEXT Z
58 A=A+960
60 REM*********************************
62 REM EINEN ZEILENVORSCHUB
64 REM*********************************
66 PRINT#1,CHR$(13)
68 NEXT M
70 END
72 REM*********************************
74 REM ZUFALLSMUSTER AB 8192
76 REM*********************************
78 FOR X=0 TO 2880
80 U=INT(RND(1)*255)
82 POKE A+X,U:PRINT U;
84 NEXT X
86 RETURN